home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / MESSAGES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-04  |  29.9 KB  |  1,343 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Windows Messages and Types                      }
  6. {                                                       }
  7. {       Copyright (c) 1991,97 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Messages;
  12.  
  13. {$A-}
  14. {$WEAKPACKAGEUNIT}
  15.  
  16. interface
  17.  
  18. uses Windows;
  19.  
  20. { Window Messages }
  21.  
  22. const
  23.   WM_NULL             = $0000;
  24.   WM_CREATE           = $0001;
  25.   WM_DESTROY          = $0002;
  26.   WM_MOVE             = $0003;
  27.   WM_SIZE             = $0005;
  28.   WM_ACTIVATE         = $0006;
  29.   WM_SETFOCUS         = $0007;
  30.   WM_KILLFOCUS        = $0008;
  31.   WM_ENABLE           = $000A;
  32.   WM_SETREDRAW        = $000B;
  33.   WM_SETTEXT          = $000C;
  34.   WM_GETTEXT          = $000D;
  35.   WM_GETTEXTLENGTH    = $000E;
  36.   WM_PAINT            = $000F;
  37.   WM_CLOSE            = $0010;
  38.   WM_QUERYENDSESSION  = $0011;
  39.   WM_QUIT             = $0012;
  40.   WM_QUERYOPEN        = $0013;
  41.   WM_ERASEBKGND       = $0014;
  42.   WM_SYSCOLORCHANGE   = $0015;
  43.   WM_ENDSESSION       = $0016;
  44.   WM_SYSTEMERROR      = $0017;
  45.   WM_SHOWWINDOW       = $0018;
  46.   WM_CTLCOLOR         = $0019;
  47.   WM_WININICHANGE     = $001A;
  48.   WM_SETTINGCHANGE = WM_WININICHANGE;
  49.   WM_DEVMODECHANGE    = $001B;
  50.   WM_ACTIVATEAPP      = $001C;
  51.   WM_FONTCHANGE       = $001D;
  52.   WM_TIMECHANGE       = $001E;
  53.   WM_CANCELMODE       = $001F;
  54.   WM_SETCURSOR        = $0020;
  55.   WM_MOUSEACTIVATE    = $0021;
  56.   WM_CHILDACTIVATE    = $0022;
  57.   WM_QUEUESYNC        = $0023;
  58.   WM_GETMINMAXINFO    = $0024;
  59.   WM_PAINTICON        = $0026;
  60.   WM_ICONERASEBKGND   = $0027;
  61.   WM_NEXTDLGCTL       = $0028;
  62.   WM_SPOOLERSTATUS    = $002A;
  63.   WM_DRAWITEM         = $002B;
  64.   WM_MEASUREITEM      = $002C;
  65.   WM_DELETEITEM       = $002D;
  66.   WM_VKEYTOITEM       = $002E;
  67.   WM_CHARTOITEM       = $002F;
  68.   WM_SETFONT          = $0030;
  69.   WM_GETFONT          = $0031;
  70.   WM_SETHOTKEY        = $0032;
  71.   WM_GETHOTKEY        = $0033;
  72.   WM_QUERYDRAGICON    = $0037;
  73.   WM_COMPAREITEM      = $0039;
  74.   WM_COMPACTING       = $0041;
  75.  
  76.   WM_COMMNOTIFY       = $0044;    { obsolete in Win32}
  77.  
  78.   WM_WINDOWPOSCHANGING = $0046;
  79.   WM_WINDOWPOSCHANGED = $0047;
  80.   WM_POWER            = $0048;
  81.  
  82.   WM_COPYDATA         = $004A;
  83.   WM_CANCELJOURNAL    = $004B;
  84.   WM_NOTIFY           = $004E;
  85.   WM_INPUTLANGCHANGEREQUEST = $0050;
  86.   WM_INPUTLANGCHANGE  = $0051;
  87.   WM_TCARD            = $0052;
  88.   WM_HELP             = $0053;
  89.   WM_USERCHANGED      = $0054;
  90.   WM_NOTIFYFORMAT     = $0055;
  91.  
  92.   WM_CONTEXTMENU      = $007B;
  93.   WM_STYLECHANGING    = $007C;
  94.   WM_STYLECHANGED     = $007D;
  95.   WM_DISPLAYCHANGE    = $007E;
  96.   WM_GETICON          = $007F;
  97.   WM_SETICON          = $0080;
  98.  
  99.   WM_NCCREATE         = $0081;
  100.   WM_NCDESTROY        = $0082;
  101.   WM_NCCALCSIZE       = $0083;
  102.   WM_NCHITTEST        = $0084;
  103.   WM_NCPAINT          = $0085;
  104.   WM_NCACTIVATE       = $0086;
  105.   WM_GETDLGCODE       = $0087;
  106.   WM_NCMOUSEMOVE      = $00A0;
  107.   WM_NCLBUTTONDOWN    = $00A1;
  108.   WM_NCLBUTTONUP      = $00A2;
  109.   WM_NCLBUTTONDBLCLK  = $00A3;
  110.   WM_NCRBUTTONDOWN    = $00A4;
  111.   WM_NCRBUTTONUP      = $00A5;
  112.   WM_NCRBUTTONDBLCLK  = $00A6;
  113.   WM_NCMBUTTONDOWN    = $00A7;
  114.   WM_NCMBUTTONUP      = $00A8;
  115.   WM_NCMBUTTONDBLCLK  = $00A9;
  116.  
  117.   WM_KEYFIRST         = $0100;
  118.   WM_KEYDOWN          = $0100;
  119.   WM_KEYUP            = $0101;
  120.   WM_CHAR             = $0102;
  121.   WM_DEADCHAR         = $0103;
  122.   WM_SYSKEYDOWN       = $0104;
  123.   WM_SYSKEYUP         = $0105;
  124.   WM_SYSCHAR          = $0106;
  125.   WM_SYSDEADCHAR      = $0107;
  126.   WM_KEYLAST          = $0108;
  127.  
  128.   WM_INITDIALOG       = $0110;
  129.   WM_COMMAND          = $0111;
  130.   WM_SYSCOMMAND       = $0112;
  131.   WM_TIMER            = $0113;
  132.   WM_HSCROLL          = $0114;
  133.   WM_VSCROLL          = $0115;
  134.   WM_INITMENU         = $0116;
  135.   WM_INITMENUPOPUP    = $0117;
  136.   WM_MENUSELECT       = $011F;
  137.   WM_MENUCHAR         = $0120;
  138.   WM_ENTERIDLE        = $0121;
  139.  
  140.   WM_CTLCOLORMSGBOX   = $0132;
  141.   WM_CTLCOLOREDIT     = $0133;
  142.   WM_CTLCOLORLISTBOX  = $0134;
  143.   WM_CTLCOLORBTN      = $0135;
  144.   WM_CTLCOLORDLG      = $0136;
  145.   WM_CTLCOLORSCROLLBAR= $0137;
  146.   WM_CTLCOLORSTATIC   = $0138;
  147.  
  148.   WM_MOUSEFIRST       = $0200;
  149.   WM_MOUSEMOVE        = $0200;
  150.   WM_LBUTTONDOWN      = $0201;
  151.   WM_LBUTTONUP        = $0202;
  152.   WM_LBUTTONDBLCLK    = $0203;
  153.   WM_RBUTTONDOWN      = $0204;
  154.   WM_RBUTTONUP        = $0205;
  155.   WM_RBUTTONDBLCLK    = $0206;
  156.   WM_MBUTTONDOWN      = $0207;
  157.   WM_MBUTTONUP        = $0208;
  158.   WM_MBUTTONDBLCLK    = $0209;
  159.   WM_MOUSEWHEEL       = $020A; 
  160.   WM_MOUSELAST        = $020A;
  161.  
  162.   WM_PARENTNOTIFY     = $0210;
  163.   WM_ENTERMENULOOP    = $0211;
  164.   WM_EXITMENULOOP     = $0212;
  165.   WM_NEXTMENU         = $0213;
  166.  
  167.   WM_SIZING           = 532;
  168.   WM_CAPTURECHANGED   = 533;
  169.   WM_MOVING           = 534;
  170.   WM_POWERBROADCAST   = 536;
  171.   WM_DEVICECHANGE     = 537;
  172.  
  173.   WM_IME_STARTCOMPOSITION        = $010D;
  174.   WM_IME_ENDCOMPOSITION          = $010E;
  175.   WM_IME_COMPOSITION             = $010F;
  176.   WM_IME_KEYLAST                 = $010F;
  177.  
  178.   WM_IME_SETCONTEXT              = $0281;
  179.   WM_IME_NOTIFY                  = $0282;
  180.   WM_IME_CONTROL                 = $0283;
  181.   WM_IME_COMPOSITIONFULL         = $0284;
  182.   WM_IME_SELECT                  = $0285;
  183.   WM_IME_CHAR                    = $0286;
  184.  
  185.   WM_IME_KEYDOWN                 = $0290;
  186.   WM_IME_KEYUP                   = $0291;
  187.  
  188.   WM_MDICREATE        = $0220;
  189.   WM_MDIDESTROY       = $0221;
  190.   WM_MDIACTIVATE      = $0222;
  191.   WM_MDIRESTORE       = $0223;
  192.   WM_MDINEXT          = $0224;
  193.   WM_MDIMAXIMIZE      = $0225;
  194.   WM_MDITILE          = $0226;
  195.   WM_MDICASCADE       = $0227;
  196.   WM_MDIICONARRANGE   = $0228;
  197.   WM_MDIGETACTIVE     = $0229;
  198.   WM_MDISETMENU       = $0230;
  199.  
  200.   WM_ENTERSIZEMOVE    = $0231;
  201.   WM_EXITSIZEMOVE     = $0232;
  202.   WM_DROPFILES        = $0233;
  203.   WM_MDIREFRESHMENU   = $0234;
  204.  
  205.   WM_MOUSEHOVER       = $02A1; 
  206.   WM_MOUSELEAVE       = $02A3;
  207.  
  208.   WM_CUT              = $0300;
  209.   WM_COPY             = $0301;
  210.   WM_PASTE            = $0302;
  211.   WM_CLEAR            = $0303;
  212.   WM_UNDO             = $0304;
  213.   WM_RENDERFORMAT     = $0305;
  214.   WM_RENDERALLFORMATS = $0306;
  215.   WM_DESTROYCLIPBOARD = $0307;
  216.   WM_DRAWCLIPBOARD    = $0308;
  217.   WM_PAINTCLIPBOARD   = $0309;
  218.   WM_VSCROLLCLIPBOARD = $030A;
  219.   WM_SIZECLIPBOARD    = $030B;
  220.   WM_ASKCBFORMATNAME  = $030C;
  221.   WM_CHANGECBCHAIN    = $030D;
  222.   WM_HSCROLLCLIPBOARD = $030E;
  223.   WM_QUERYNEWPALETTE  = $030F;
  224.   WM_PALETTEISCHANGING= $0310;
  225.   WM_PALETTECHANGED   = $0311;
  226.   WM_HOTKEY           = $0312;
  227.  
  228.   WM_PRINT            = 791;
  229.   WM_PRINTCLIENT      = 792;
  230.  
  231.   WM_HANDHELDFIRST    = 856;
  232.   WM_HANDHELDLAST     = 863;
  233.  
  234.   WM_PENWINFIRST      = $0380;
  235.   WM_PENWINLAST       = $038F;
  236.  
  237.   WM_COALESCE_FIRST   = $0390;
  238.   WM_COALESCE_LAST    = $039F;
  239.  
  240.   WM_DDE_FIRST        = $03E0;
  241.   WM_DDE_INITIATE     = WM_DDE_FIRST + 0;
  242.   WM_DDE_TERMINATE    = WM_DDE_FIRST + 1;
  243.   WM_DDE_ADVISE       = WM_DDE_FIRST + 2;
  244.   WM_DDE_UNADVISE     = WM_DDE_FIRST + 3;
  245.   WM_DDE_ACK          = WM_DDE_FIRST + 4;
  246.   WM_DDE_DATA         = WM_DDE_FIRST + 5;
  247.   WM_DDE_REQUEST      = WM_DDE_FIRST + 6;
  248.   WM_DDE_POKE         = WM_DDE_FIRST + 7;
  249.   WM_DDE_EXECUTE      = WM_DDE_FIRST + 8;
  250.   WM_DDE_LAST         = WM_DDE_FIRST + 8;
  251.  
  252.   WM_APP = $8000;
  253.  
  254. { NOTE: All Message Numbers below 0x0400 are RESERVED }
  255.  
  256. { Private Window Messages Start Here }
  257.  
  258.   WM_USER             = $0400;
  259.  
  260. { Button Notification Codes }
  261.  
  262. const
  263.   BN_CLICKED       = 0;
  264.   BN_PAINT         = 1;
  265.   BN_HILITE        = 2;
  266.   BN_UNHILITE      = 3;
  267.   BN_DISABLE       = 4;
  268.   BN_DOUBLECLICKED = 5;
  269.   BN_PUSHED = BN_HILITE;
  270.   BN_UNPUSHED = BN_UNHILITE;
  271.   BN_DBLCLK = BN_DOUBLECLICKED;
  272.   BN_SETFOCUS = 6;
  273.   BN_KILLFOCUS = 7;
  274.  
  275. { Button Control Messages }
  276. const
  277.   BM_GETCHECK = $00F0;
  278.   BM_SETCHECK = $00F1;
  279.   BM_GETSTATE = $00F2;
  280.   BM_SETSTATE = $00F3;
  281.   BM_SETSTYLE = $00F4;
  282.   BM_CLICK    = $00F5;
  283.   BM_GETIMAGE = $00F6;
  284.   BM_SETIMAGE = $00F7;
  285.  
  286. { Listbox Notification Codes }
  287.  
  288. const
  289.   LBN_ERRSPACE  = (-2);
  290.   LBN_SELCHANGE = 1;
  291.   LBN_DBLCLK    = 2;
  292.   LBN_SELCANCEL = 3;
  293.   LBN_SETFOCUS  = 4;
  294.   LBN_KILLFOCUS = 5;
  295.  
  296. { Listbox messages }
  297.  
  298. const
  299.   LB_ADDSTRING            = $0180;
  300.   LB_INSERTSTRING         = $0181;
  301.   LB_DELETESTRING         = $0182;
  302.   LB_SELITEMRANGEEX       = $0183;
  303.   LB_RESETCONTENT         = $0184;
  304.   LB_SETSEL               = $0185;
  305.   LB_SETCURSEL            = $0186;
  306.   LB_GETSEL               = $0187;
  307.   LB_GETCURSEL            = $0188;
  308.   LB_GETTEXT              = $0189;
  309.   LB_GETTEXTLEN           = $018A;
  310.   LB_GETCOUNT             = $018B;
  311.   LB_SELECTSTRING         = $018C;
  312.   LB_DIR                  = $018D;
  313.   LB_GETTOPINDEX          = $018E;
  314.   LB_FINDSTRING           = $018F;
  315.   LB_GETSELCOUNT          = $0190;
  316.   LB_GETSELITEMS          = $0191;
  317.   LB_SETTABSTOPS          = $0192;
  318.   LB_GETHORIZONTALEXTENT  = $0193;
  319.   LB_SETHORIZONTALEXTENT  = $0194;
  320.   LB_SETCOLUMNWIDTH       = $0195;
  321.   LB_ADDFILE              = $0196;
  322.   LB_SETTOPINDEX          = $0197;
  323.   LB_GETITEMRECT          = $0198;
  324.   LB_GETITEMDATA          = $0199;
  325.   LB_SETITEMDATA          = $019A;
  326.   LB_SELITEMRANGE         = $019B;
  327.   LB_SETANCHORINDEX       = $019C;
  328.   LB_GETANCHORINDEX       = $019D;
  329.   LB_SETCARETINDEX        = $019E;
  330.   LB_GETCARETINDEX        = $019F;
  331.   LB_SETITEMHEIGHT        = $01A0;
  332.   LB_GETITEMHEIGHT        = $01A1;
  333.   LB_FINDSTRINGEXACT      = $01A2;
  334.   LB_SETLOCALE            = $01A5;
  335.   LB_GETLOCALE            = $01A6;
  336.   LB_SETCOUNT             = $01A7;
  337.   LB_INITSTORAGE          = $01A8;
  338.   LB_ITEMFROMPOINT        = $01A9;
  339.   LB_MSGMAX               = 432;
  340.  
  341. { Combo Box Notification Codes }
  342.  
  343. const
  344.   CBN_ERRSPACE   = (-1);
  345.   CBN_SELCHANGE  = 1;
  346.   CBN_DBLCLK     = 2;
  347.   CBN_SETFOCUS   = 3;
  348.   CBN_KILLFOCUS  = 4;
  349.   CBN_EDITCHANGE = 5;
  350.   CBN_EDITUPDATE = 6;
  351.   CBN_DROPDOWN   = 7;
  352.   CBN_CLOSEUP    = 8;
  353.   CBN_SELENDOK   = 9;
  354.   CBN_SELENDCANCEL = 10;
  355.  
  356. { Combo Box messages }
  357.  
  358.   CB_GETEDITSEL            = $0140;
  359.   CB_LIMITTEXT             = $0141;
  360.   CB_SETEDITSEL            = $0142;
  361.   CB_ADDSTRING             = $0143;
  362.   CB_DELETESTRING          = $0144;
  363.   CB_DIR                   = $0145;
  364.   CB_GETCOUNT              = $0146;
  365.   CB_GETCURSEL             = $0147;
  366.   CB_GETLBTEXT             = $0148;
  367.   CB_GETLBTEXTLEN          = $0149;
  368.   CB_INSERTSTRING          = $014A;
  369.   CB_RESETCONTENT          = $014B;
  370.   CB_FINDSTRING            = $014C;
  371.   CB_SELECTSTRING          = $014D;
  372.   CB_SETCURSEL             = $014E;
  373.   CB_SHOWDROPDOWN          = $014F;
  374.   CB_GETITEMDATA           = $0150;
  375.   CB_SETITEMDATA           = $0151;
  376.   CB_GETDROPPEDCONTROLRECT = $0152;
  377.   CB_SETITEMHEIGHT         = $0153;
  378.   CB_GETITEMHEIGHT         = $0154;
  379.   CB_SETEXTENDEDUI         = $0155;
  380.   CB_GETEXTENDEDUI         = $0156;
  381.   CB_GETDROPPEDSTATE       = $0157;
  382.   CB_FINDSTRINGEXACT       = $0158;
  383.   CB_SETLOCALE             = 345;
  384.   CB_GETLOCALE             = 346;
  385.   CB_GETTOPINDEX           = 347;
  386.   CB_SETTOPINDEX           = 348;
  387.   CB_GETHORIZONTALEXTENT   = 349;
  388.   CB_SETHORIZONTALEXTENT   = 350;
  389.   CB_GETDROPPEDWIDTH       = 351;
  390.   CB_SETDROPPEDWIDTH       = 352;
  391.   CB_INITSTORAGE           = 353;
  392.   CB_MSGMAX                = 354;
  393.  
  394. { Edit Control Notification Codes }
  395.  
  396. const
  397.   EN_SETFOCUS  = $0100;
  398.   EN_KILLFOCUS = $0200;
  399.   EN_CHANGE    = $0300;
  400.   EN_UPDATE    = $0400;
  401.   EN_ERRSPACE  = $0500;
  402.   EN_MAXTEXT   = $0501;
  403.   EN_HSCROLL   = $0601;
  404.   EN_VSCROLL   = $0602;
  405.  
  406. { Edit Control Messages }
  407.  
  408. const
  409.   EM_GETSEL              = $00B0;
  410.   EM_SETSEL              = $00B1;
  411.   EM_GETRECT             = $00B2;
  412.   EM_SETRECT             = $00B3;
  413.   EM_SETRECTNP           = $00B4;
  414.   EM_SCROLL              = $00B5;
  415.   EM_LINESCROLL          = $00B6;
  416.   EM_SCROLLCARET         = $00B7;
  417.   EM_GETMODIFY           = $00B8;
  418.   EM_SETMODIFY           = $00B9;
  419.   EM_GETLINECOUNT        = $00BA;
  420.   EM_LINEINDEX           = $00BB;
  421.   EM_SETHANDLE           = $00BC;
  422.   EM_GETHANDLE           = $00BD;
  423.   EM_GETTHUMB            = $00BE;
  424.   EM_LINELENGTH          = $00C1;
  425.   EM_REPLACESEL          = $00C2;
  426.   EM_GETLINE             = $00C4;
  427.   EM_LIMITTEXT           = $00C5;
  428.   EM_CANUNDO             = $00C6;
  429.   EM_UNDO                = $00C7;
  430.   EM_FMTLINES            = $00C8;
  431.   EM_LINEFROMCHAR        = $00C9;
  432.   EM_SETTABSTOPS         = $00CB;
  433.   EM_SETPASSWORDCHAR     = $00CC;
  434.   EM_EMPTYUNDOBUFFER     = $00CD;
  435.   EM_GETFIRSTVISIBLELINE = $00CE;
  436.   EM_SETREADONLY         = $00CF;
  437.   EM_SETWORDBREAKPROC    = $00D0;
  438.   EM_GETWORDBREAKPROC    = $00D1;
  439.   EM_GETPASSWORDCHAR     = $00D2;
  440.   EM_SETMARGINS          = 211;
  441.   EM_GETMARGINS          = 212;
  442.   EM_SETLIMITTEXT        = EM_LIMITTEXT;    //win40 Name change
  443.   EM_GETLIMITTEXT        = 213;
  444.   EM_POSFROMCHAR         = 214;
  445.   EM_CHARFROMPOS         = 215;
  446.  
  447. const
  448.   { Scroll bar messages }
  449.   SBM_SETPOS = 224;             { not in win3.1  }
  450.   SBM_GETPOS = 225;             { not in win3.1  }
  451.   SBM_SETRANGE = 226;           { not in win3.1  }
  452.   SBM_SETRANGEREDRAW = 230;     { not in win3.1  }
  453.   SBM_GETRANGE = 227;           { not in win3.1  }
  454.   SBM_ENABLE_ARROWS = 228;      { not in win3.1  }
  455.   SBM_SETSCROLLINFO = 233;
  456.   SBM_GETSCROLLINFO = 234;
  457.  
  458. { Dialog messages }
  459.  
  460.   DM_GETDEFID = (WM_USER+0);
  461.   DM_SETDEFID = (WM_USER+1);
  462.   DM_REPOSITION = (WM_USER+2);
  463.  
  464.   PSM_PAGEINFO = (WM_USER+100);
  465.   PSM_SHEETINFO = (WM_USER+101);
  466.  
  467. type
  468.  
  469. { Generic window message record }
  470.  
  471.   PMessage = ^TMessage;
  472.   TMessage = record
  473.     Msg: Cardinal;
  474.     case Integer of
  475.       0: (
  476.         WParam: Longint;
  477.         LParam: Longint;
  478.         Result: Longint);
  479.       1: (
  480.         WParamLo: Word;
  481.         WParamHi: Word;
  482.         LParamLo: Word;
  483.         LParamHi: Word;
  484.         ResultLo: Word;
  485.         ResultHi: Word);
  486.   end;
  487.  
  488. { Common message format records }
  489.  
  490.   TWMNoParams = record
  491.     Msg: Cardinal;
  492.     Unused: array[0..3] of Word;
  493.     Result: Longint;
  494.   end;
  495.  
  496.   TWMKey = record
  497.     Msg: Cardinal;
  498.     CharCode: Word;
  499.     Unused: Word;
  500.     KeyData: Longint;
  501.     Result: Longint;
  502.   end;
  503.  
  504.   TWMMouse = record
  505.     Msg: Cardinal;
  506.     Keys: Longint;
  507.     case Integer of
  508.       0: (
  509.         XPos: Smallint;
  510.         YPos: Smallint);
  511.       1: (
  512.         Pos: TSmallPoint;
  513.         Result: Longint);
  514.   end;
  515.  
  516.   TWMWindowPosMsg = record
  517.     Msg: Cardinal;
  518.     Unused: Integer;
  519.     WindowPos: PWindowPos;
  520.     Result: Longint;
  521.   end;
  522.  
  523.   TWMScroll = record
  524.     Msg: Cardinal;
  525.     ScrollCode: Smallint; { SB_xxxx }
  526.     Pos: Smallint;
  527.     ScrollBar: HWND;
  528.     Result: Longint;
  529.   end;
  530.  
  531. { Message records }
  532.  
  533.   TWMActivate = record
  534.     Msg: Cardinal;
  535.     Active: Word; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE }
  536.     Minimized: WordBool;
  537.     ActiveWindow: HWND;
  538.     Result: Longint;
  539.   end;
  540.  
  541.   TWMActivateApp = record
  542.     Msg: Cardinal;
  543.     Active: BOOL;
  544.     ThreadId: Longint;
  545.     Result: Longint;
  546.   end;
  547.  
  548.   TWMAskCBFormatName = record
  549.     Msg: Cardinal;
  550.     NameLen: Word;
  551.     Unused: Word;
  552.     FormatName: PChar;
  553.     Result: Longint;
  554.   end;
  555.  
  556.   TWMCancelMode = TWMNoParams;
  557.  
  558.   TWMChangeCBChain = record
  559.     Msg: Cardinal;
  560.     Remove: HWND;
  561.     Next: HWND;
  562.     Result: Longint;
  563.   end;
  564.  
  565.   TWMChar = TWMKey;
  566.  
  567.   TWMCharToItem = record
  568.     Msg: Cardinal;
  569.     Key: Word;
  570.     CaretPos: Word;
  571.     ListBox: HWND;
  572.     Result: Longint;
  573.   end;
  574.  
  575.   TWMChildActivate = TWMNoParams;
  576.  
  577.   TWMChooseFont_GetLogFont = record
  578.     Msg: Cardinal;
  579.     Unused: Longint;
  580.     LogFont: PLogFont;
  581.     Result: Longint;
  582.   end;
  583.  
  584.   TWMClear = TWMNoParams;
  585.   TWMClose = TWMNoParams;
  586.  
  587.   TWMCommand = record
  588.     Msg: Cardinal;
  589.     ItemID: Word;
  590.     NotifyCode: Word;
  591.     Ctl: HWND;
  592.     Result: Longint;
  593.   end;
  594.  
  595.   TWMCompacting = record
  596.     Msg: Cardinal;
  597.     CompactRatio: Longint;
  598.     Unused: Longint;
  599.     Result: Longint;
  600.   end;
  601.  
  602.   TWMCompareItem = record
  603.     Msg: Cardinal;
  604.     Ctl: HWnd;
  605.     CompareItemStruct: PCompareItemStruct;
  606.     Result: Longint;
  607.   end;
  608.  
  609.   TWMCopy = TWMNoParams;
  610.  
  611.   TWMCopyData = record
  612.     Msg: Cardinal;
  613.     From: HWND;
  614.     CopyDataStruct: PCopyDataStruct;
  615.     Result: Longint;
  616.   end;
  617.  
  618.   { ?? WM_CLP_LAUNCH, WM_CPL_LAUNCHED }
  619.  
  620.   TWMCreate = record
  621.     Msg: Cardinal;
  622.     Unused: Integer;
  623.     CreateStruct: PCreateStruct;
  624.     Result: Longint;
  625.   end;
  626.  
  627.   TWMCtlColor = record
  628.     Msg: Cardinal;
  629.     ChildDC: HDC;
  630.     ChildWnd: HWND;
  631.     Result: Longint;
  632.   end;
  633.  
  634.   TWMCtlColorBtn = TWMCtlColor;
  635.   TWMCtlColorDlg = TWMCtlColor;
  636.   TWMCtlColorEdit = TWMCtlColor;
  637.   TWMCtlColorListbox = TWMCtlColor;
  638.   TWMCtlColorMsgbox = TWMCtlColor;
  639.   TWMCtlColorScrollbar = TWMCtlColor;
  640.   TWMCtlColorStatic = TWMCtlColor;
  641.  
  642.   TWMCut = TWMNoParams;
  643.  
  644.   TWMDDE_Ack = record
  645.     Msg: Cardinal;
  646.     PostingApp: HWND;
  647.     case Word of
  648.       WM_DDE_INITIATE: (
  649.         App: Word;
  650.         Topic: Word;
  651.         Result: Longint);
  652.       WM_DDE_EXECUTE {and all others}: (
  653.         PackedVal: Longint);
  654.   end;
  655.  
  656.   TWMDDE_Advise = record
  657.     Msg: Cardinal;
  658.     PostingApp: HWND;
  659.     PackedVal: Longint;
  660.     Result: Longint;
  661.   end;
  662.  
  663.   TWMDDE_Data = record
  664.     Msg: Cardinal;
  665.     PostingApp: HWND;
  666.     PackedVal: Longint;
  667.     Result: Longint;
  668.   end;
  669.  
  670.   TWMDDE_Execute = record
  671.     Msg: Cardinal;
  672.     PostingApp: HWND;
  673.     Commands: THandle;
  674.     Result: Longint;
  675.   end;
  676.  
  677.   TWMDDE_Initiate = record
  678.     Msg: Cardinal;
  679.     PostingApp: HWND;
  680.     App: Word;
  681.     Topic: Word;
  682.     Result: Longint;
  683.   end;
  684.  
  685.   TWMDDE_Poke = record
  686.     Msg: Cardinal;
  687.     PostingApp: HWND;
  688.     PackedVal: Longint;
  689.     Result: Longint;
  690.   end;
  691.  
  692.   TWMDDE_Request = record
  693.     Msg: Cardinal;
  694.     PostingApp: HWND;
  695.     Format: Word;
  696.     Item: Word;
  697.     Result: Longint;
  698.   end;
  699.  
  700.   TWMDDE_Terminate = record
  701.     Msg: Cardinal;
  702.     PostingApp: HWND;
  703.     Unused: Longint;
  704.     Result: Longint;
  705.   end;
  706.  
  707.   TWMDDE_Unadvise = record
  708.     Msg: Cardinal;
  709.     PostingApp: HWND;
  710.     Format: Word;
  711.     Item: Word;
  712.     Result: Longint;
  713.   end;
  714.  
  715.   TWMDeadChar = TWMChar;
  716.  
  717.   TWMDeleteItem = record
  718.     Msg: Cardinal;
  719.     Ctl: HWND;
  720.     DeleteItemStruct: PDeleteItemStruct;
  721.     Result: Longint;
  722.   end;
  723.  
  724.   TWMDestroy = TWMNoParams;
  725.   TWMDestroyClipboard = TWMNoParams;
  726.  
  727.   TWMDevModeChange = record
  728.     Msg: Cardinal;
  729.     Unused: Integer;
  730.     Device: PChar;
  731.     Result: Longint;
  732.   end;
  733.  
  734.   TWMDrawClipboard = TWMNoParams;
  735.  
  736.   TWMDrawItem = record
  737.     Msg: Cardinal;
  738.     Ctl: HWND;
  739.     DrawItemStruct: PDrawItemStruct;
  740.     Result: Longint;
  741.   end;
  742.  
  743.   TWMDropFiles = record
  744.     Msg: Cardinal;
  745.     Drop: THANDLE;
  746.     Unused: Longint;
  747.     Result: Longint;
  748.   end;
  749.  
  750.   TWMEnable = record
  751.     Msg: Cardinal;
  752.     Enabled: LongBool;
  753.     Unused: Longint;
  754.     Result: Longint;
  755.   end;
  756.  
  757.   TWMEndSession = record
  758.     Msg: Cardinal;
  759.     EndSession: LongBool;
  760.     Unused: Longint;
  761.     Result: Longint;
  762.   end;
  763.  
  764.   TWMEnterIdle = record
  765.     Msg: Cardinal;
  766.     Source: Longint; { MSGF_DIALOGBOX, MSGF_MENU }
  767.     IdleWnd: HWND;
  768.     Result: Longint;
  769.   end;
  770.  
  771.   TWMEnterMenuLoop = record
  772.     Msg: Cardinal;
  773.     IsTrackPopupMenu: LongBool;
  774.     Unused: Longint;
  775.     Result: Longint;
  776.   end;
  777.  
  778.   TWMExitMenuLoop = TWMEnterMenuLoop;
  779.  
  780.   TWMEraseBkgnd = record
  781.     Msg: Cardinal;
  782.     DC: HDC;
  783.     Unused: Longint;
  784.     Result: Longint;
  785.   end;
  786.  
  787.   TWMFontChange = TWMNoParams;
  788.   TWMGetDlgCode = TWMNoParams;
  789.   TWMGetFont = TWMNoParams;
  790.  
  791.   TWMGetIcon = record
  792.     Msg: Cardinal;
  793.     BigIcon: Longbool;
  794.     Unused: Longint;
  795.     Result: Longint;
  796.   end;
  797.  
  798.   TWMGetHotKey = TWMNoParams;
  799.  
  800.   TWMGetMinMaxInfo = record
  801.     Msg: Cardinal;
  802.     Unused: Integer;
  803.     MinMaxInfo: PMinMaxInfo;
  804.     Result: Longint;
  805.   end;
  806.  
  807.   TWMGetText = record
  808.     Msg: Cardinal;
  809.     TextMax: Integer;
  810.     Text: PChar;
  811.     Result: Longint;
  812.   end;
  813.  
  814.   TWMGetTextLength = TWMNoParams;
  815.  
  816.   TWMHotKey = record
  817.     Msg: Cardinal;
  818.     HotKey: Longint;
  819.     Unused: Longint;
  820.     Result: Longint;
  821.   end;
  822.  
  823.   TWMHScroll = TWMScroll;
  824.  
  825.   TWMHScrollClipboard = record
  826.     Msg: Cardinal;
  827.     Viewer: HWND;
  828.     ScrollCode: Word; {SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
  829.                        SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
  830.                        SB_THUMBTRACK, SB_TOP }
  831.     Pos: Word;
  832.     Result: Longint;
  833.   end;
  834.  
  835.   TWMIconEraseBkgnd = TWMEraseBkgnd;
  836.  
  837.   TWMInitDialog = record
  838.     Msg: Cardinal;
  839.     Focus: HWND;
  840.     InitParam: Longint;
  841.     Result: Longint;
  842.   end;
  843.  
  844.   TWMInitMenu = record
  845.     Msg: Cardinal;
  846.     Menu: HMENU;
  847.     Unused: Longint;
  848.     Result: Longint;
  849.   end;
  850.  
  851.   TWMInitMenuPopup = record
  852.     Msg: Cardinal;
  853.     MenuPopup: HMENU;
  854.     Pos: Smallint;
  855.     SystemMenu: WordBool;
  856.     Result: Longint;
  857.   end;
  858.  
  859.   TWMKeyDown = TWMKey;
  860.   TWMKeyUp = TWMKey;
  861.  
  862.   TWMKillFocus = record
  863.     Msg: Cardinal;
  864.     FocusedWnd: HWND;
  865.     Unused: Longint;
  866.     Result: Longint;
  867.   end;
  868.  
  869.   TWMLButtonDblClk = TWMMouse;
  870.   TWMLButtonDown   = TWMMouse;
  871.   TWMLButtonUp     = TWMMouse;
  872.   TWMMButtonDblClk = TWMMouse;
  873.   TWMMButtonDown   = TWMMouse;
  874.   TWMMButtonUp     = TWMMouse;
  875.  
  876.   TWMMDIActivate = record
  877.     Msg: Cardinal;
  878.     case Integer of
  879.       0: (
  880.         ChildWnd: HWND);
  881.       1: (
  882.         DeactiveWnd: HWND;
  883.         ActiveWnd: HWND;
  884.         Result: Longint);
  885.   end;
  886.  
  887.   TWMMDICascade = record
  888.     Msg: Cardinal;
  889.     Cascade: Longint; { 0, MDITILE_SKIPDISABLED }
  890.     Unused: Longint;
  891.     Result: Longint;
  892.   end;
  893.  
  894.   TWMMDICreate = record
  895.     Msg: Cardinal;
  896.     Unused: Integer;
  897.     MDICreateStruct: PMDICreateStruct;
  898.     Result: Longint;
  899.   end;
  900.  
  901.   TWMMDIDestroy = record
  902.     Msg: Cardinal;
  903.     Child: HWND;
  904.     Unused: Longint;
  905.     Result: Longint;
  906.   end;
  907.  
  908.   TWMMDIGetActive = TWMNoParams;
  909.   TWMMDIIconArrange = TWMNoParams;
  910.  
  911.   TWMMDIMaximize = record
  912.     Msg: Cardinal;
  913.     Maximize: HWND;
  914.     Unused: Longint;
  915.     Result: Longint;
  916.   end;
  917.  
  918.   TWMMDINext = record
  919.     Msg: Cardinal;
  920.     Child: HWND;
  921.     Next: Longint;
  922.     Result: Longint;
  923.   end;
  924.  
  925.   TWMMDIRefreshMenu = TWMNoParams;
  926.  
  927.   TWMMDIRestore = record
  928.     Msg: Cardinal;
  929.     IDChild: HWND;
  930.     Unused: Longint;
  931.     Result: Longint;
  932.   end;
  933.  
  934.   TWMMDISetMenu = record
  935.     Msg: Cardinal;
  936.     MenuFrame: HMENU;
  937.     MenuWindow: HMENU;
  938.     Result: Longint;
  939.   end;
  940.  
  941.   TWMMDITile = record
  942.     Msg: Cardinal;
  943.     Tile: Longint; { MDITILE_HORIZONTAL, MDITILE_SKIPDISABLE,
  944.                      MDITILE_VERTICAL }
  945.     Unused: Longint;
  946.     Result: Longint;
  947.   end;
  948.  
  949.   TWMMeasureItem = record
  950.     Msg: Cardinal;
  951.     IDCtl: HWnd;
  952.     MeasureItemStruct: PMeasureItemStruct;
  953.     Result: Longint;
  954.   end;
  955.  
  956.   TWMMenuChar = record
  957.     Msg: Cardinal;
  958.     User: Char;
  959.     Unused: Byte;
  960.     MenuFlag: Word; { MF_POPUP, MF_SYSMENU }
  961.     Menu: HMENU;
  962.     Result: Longint;
  963.   end;
  964.  
  965.   TWMMenuSelect = record
  966.     Msg: Cardinal;
  967.     IDItem: Word;
  968.     MenuFlag: Word; { MF_BITMAP, MF_CHECKED, MF_DISABLED, MF_GRAYED,
  969.                       MF_MOUSESELECT, MF_OWNERDRAW, MF_POPUP, MF_SEPARATOR,
  970.                       MF_SYSMENU }
  971.     Menu: HMENU;
  972.     Result: Longint;
  973.   end;
  974.  
  975.   TWMMouseActivate = record
  976.     Msg: Cardinal;
  977.     TopLevel: HWND;
  978.     HitTestCode: Word;
  979.     MouseMsg: Word;
  980.     Result: Longint;
  981.   end;
  982.  
  983.   TWMMouseMove = TWMMouse;
  984.  
  985.   TWMMove = record
  986.     Msg: Cardinal;
  987.     Unused: Integer;
  988.     case Integer of
  989.       0: (
  990.         XPos: Smallint;
  991.         YPos: Smallint);
  992.       1: (
  993.         Pos: TSmallPoint;
  994.         Result: Longint);
  995.   end;
  996.  
  997.   TWMNCActivate = record
  998.     Msg: Cardinal;
  999.     Active: BOOL;
  1000.     Unused: Longint;
  1001.     Result: Longint;
  1002.   end;
  1003.  
  1004.   TWMNCCalcSize = record
  1005.     Msg: Cardinal;
  1006.     CalcValidRects: BOOL;
  1007.     CalcSize_Params: PNCCalcSizeParams;
  1008.     Result: Longint;
  1009.   end;
  1010.  
  1011.   TWMNCCreate = record
  1012.     Msg: Cardinal;
  1013.     Unused: Integer;
  1014.     CreateStruct: PCreateStruct;
  1015.     Result: Longint;
  1016.   end;
  1017.  
  1018.   TWMNCDestroy = TWMNoParams;
  1019.  
  1020.   TWMNCHitTest = record
  1021.     Msg: Cardinal;
  1022.     Unused: Longint;
  1023.     case Integer of
  1024.       0: (
  1025.         XPos: Smallint;
  1026.         YPos: Smallint);
  1027.       1: (
  1028.         Pos: TSmallPoint;
  1029.         Result: Longint);
  1030.   end;
  1031.  
  1032.   TWMNCHitMessage = record
  1033.     Msg: Cardinal;
  1034.     HitTest: Longint;
  1035.     XCursor: Smallint;
  1036.     YCursor: Smallint;
  1037.     Result: Longint;
  1038.   end;
  1039.  
  1040.   TWMNCLButtonDblClk = TWMNCHitMessage;
  1041.   TWMNCLButtonDown   = TWMNCHitMessage;
  1042.   TWMNCLButtonUp     = TWMNCHitMessage;
  1043.   TWMNCMButtonDblClk = TWMNCHitMessage;
  1044.   TWMNCMButtonDown   = TWMNCHitMessage;
  1045.   TWMNCMButtonUp     = TWMNCHitMessage;
  1046.   TWMNCMouseMove     = TWMNCHitMessage;
  1047.  
  1048.   TWMNCPaint = TWMNoParams;
  1049.  
  1050.   TWMNCRButtonDblClk = TWMNCHitMessage;
  1051.   TWMNCRButtonDown   = TWMNCHitMessage;
  1052.   TWMNCRButtonUp     = TWMNCHitMessage;
  1053.  
  1054.   TWMNextDlgCtl = record
  1055.     Msg: Cardinal;
  1056.     CtlFocus: Longint;
  1057.     Handle: WordBool;
  1058.     Unused: Word;
  1059.     Result: Longint;
  1060.   end;
  1061.  
  1062.   TWMNotify = record
  1063.     Msg: Cardinal;
  1064.     IDCtrl: Longint;
  1065.     NMHdr: PNMHdr;
  1066.     Result: Longint;
  1067.   end;
  1068.            
  1069.   TWMNotifyFormat = record
  1070.     Msg: Cardinal;
  1071.     From: HWND;
  1072.     Command: Longint;
  1073.     Result: Longint;
  1074.   end;
  1075.  
  1076.   TWMPaint = record
  1077.     Msg: Cardinal;
  1078.     DC: HDC;
  1079.     Unused: Longint;
  1080.     Result: Longint;
  1081.   end;
  1082.  
  1083.   TWMPaintClipboard = record
  1084.     Msg: Cardinal;
  1085.     Viewer: HWND;
  1086.     PaintStruct: THandle;
  1087.     Result: Longint;
  1088.   end;
  1089.  
  1090.   TWMPaintIcon = TWMNoParams;
  1091.  
  1092.   TWMPaletteChanged = record
  1093.     Msg: Cardinal;
  1094.     PalChg: HWND;
  1095.     Unused: Longint;
  1096.     Result: Longint;
  1097.   end;
  1098.  
  1099.   TWMPaletteIsChanging = record
  1100.     Msg: Cardinal;
  1101.     Realize: HWND;
  1102.     Unused: Longint;
  1103.     Result: Longint;
  1104.   end;
  1105.  
  1106.   TWMParentNotify = record
  1107.     Msg: Cardinal;
  1108.     case Event: Word of
  1109.       WM_CREATE, WM_DESTROY: (
  1110.         ChildID: Word;
  1111.         ChildWnd: HWnd);
  1112.       WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (
  1113.         Value: Word;
  1114.         XPos: Smallint;
  1115.         YPos: Smallint);
  1116.       0: (
  1117.         Value1: Word;
  1118.         Value2: Longint;
  1119.         Result: Longint);
  1120.   end;
  1121.  
  1122.   TWMPaste = TWMNoParams;
  1123.  
  1124.   TWMPower = record
  1125.     Msg: Cardinal;
  1126.     PowerEvt: Longint; { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME,
  1127.                          PWR_CRITICALRESUME }
  1128.     Unused: Longint;
  1129.     Result: Longint;
  1130.   end;
  1131.  
  1132.   TWMQueryDragIcon = TWMNoParams;
  1133.  
  1134.   TWMQueryEndSession = record
  1135.     Msg: Cardinal;
  1136.     Source: Longint;
  1137.     Unused: Longint;
  1138.     Result: Longint;
  1139.   end;
  1140.  
  1141.   TWMQueryNewPalette = TWMNoParams;
  1142.   TWMQueryOpen = TWMNoParams;
  1143.   TWMQueueSync = TWMNoParams;
  1144.  
  1145.   TWMQuit = record
  1146.     Msg: Cardinal;
  1147.     ExitCode: Longint;
  1148.     Unused: Longint;
  1149.     Result: Longint;
  1150.   end;
  1151.  
  1152.   TWMRButtonDblClk = TWMMouse;
  1153.   TWMRButtonDown = TWMMouse;
  1154.   TWMRButtonUp = TWMMouse;
  1155.  
  1156.   TWMRenderAllFormats = TWMNoParams;
  1157.  
  1158.   TWMRenderFormat = record
  1159.     Msg: Cardinal;
  1160.     Format: Longint;
  1161.     Unused: Longint;
  1162.     Result: Longint;
  1163.   end;
  1164.  
  1165.   TWMSetCursor = record
  1166.     Msg: Cardinal;
  1167.     CursorWnd: HWND;
  1168.     HitTest: Word;
  1169.     MouseMsg: Word;
  1170.     Result: Longint;
  1171.   end;
  1172.  
  1173.   TWMSetFocus = record
  1174.     Msg: Cardinal;
  1175.     FocusedWnd: HWND;
  1176.     Unused: Longint;
  1177.     Result: Longint;
  1178.   end;
  1179.  
  1180.   TWMSetFont = record
  1181.     Msg: Cardinal;
  1182.     Font: HFONT;
  1183.     Redraw: WordBool;
  1184.     Unused: Word;
  1185.     Result: Longint;
  1186.   end;
  1187.  
  1188.   TWMSetHotKey = record
  1189.     Msg: Cardinal;
  1190.     Key: Longint;
  1191.     Unused: Longint;
  1192.     Result: Longint;
  1193.   end;
  1194.  
  1195.   TWMSetIcon = record
  1196.     Msg: Cardinal;
  1197.     BigIcon: Longbool;
  1198.     Icon: HICON;
  1199.     Result: Longint;
  1200.   end;
  1201.  
  1202.   TWMSetRedraw = record
  1203.     Msg: Cardinal;
  1204.     Redraw: Longint;
  1205.     Unused: Longint;
  1206.     Result: Longint;
  1207.   end;
  1208.  
  1209.   TWMSetText = record
  1210.     Msg: Cardinal;
  1211.     Unused: Longint;
  1212.     Text: PChar;
  1213.     Result: Longint;
  1214.   end;
  1215.  
  1216.   TWMShowWindow = record
  1217.     Msg: Cardinal;
  1218.     Show: BOOL;
  1219.     Status: Longint;
  1220.     Result: Longint;
  1221.   end;
  1222.  
  1223.   TWMSize = record
  1224.     Msg: Cardinal;
  1225.     SizeType: Longint; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  1226.                          SIZE_MAXHIDE, SIZE_MAXSHOW }
  1227.     Width: Word;
  1228.     Height: Word;
  1229.     Result: Longint;
  1230.   end;
  1231.  
  1232.   TWMSizeClipboard = record
  1233.     Msg: Cardinal;
  1234.     Viewer: HWND;
  1235.     RC: THandle;
  1236.     Result: Longint;
  1237.   end;
  1238.  
  1239.   TWMSpoolerStatus = record
  1240.     Msg: Cardinal;
  1241.     JobStatus: Longint;
  1242.     JobsLeft: Word;
  1243.     Unused: Word;
  1244.     Result: Longint;
  1245.   end;
  1246.  
  1247.   TWMStyleChange = record
  1248.     Msg: Cardinal;
  1249.     StyleType: Longint;
  1250.     StyleStruct: PStyleStruct;
  1251.     Result: Longint;
  1252.   end;
  1253.  
  1254.   TWMStyleChanged = TWMStyleChange;
  1255.   TWMStyleChanging = TWMStyleChange;
  1256.  
  1257.   TWMSysChar = TWMKey;
  1258.   TWMSysColorChange = TWMNoParams;
  1259.  
  1260.   TWMSysCommand = record
  1261.     Msg: Cardinal;
  1262.     case CmdType: Longint of
  1263.       SC_HOTKEY: (
  1264.         ActivateWnd: HWND);
  1265.       SC_KEYMENU: (
  1266.         Key: Word);
  1267.       SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
  1268.       SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
  1269.       SC_TASKLIST, SC_VSCROLL: (
  1270.         XPos: Smallint;
  1271.         YPos: Smallint;
  1272.         Result: Longint);
  1273.   end;
  1274.  
  1275.   TWMSysDeadChar = record
  1276.     Msg: Cardinal;
  1277.     CharCode: Word;
  1278.     Unused: Word;
  1279.     KeyData: Longint;
  1280.     Result: Longint;
  1281.   end;
  1282.  
  1283.   TWMSysKeyDown = TWMKey;
  1284.   TWMSysKeyUp = TWMKey;
  1285.  
  1286.   TWMSystemError = record
  1287.     Msg: Cardinal;
  1288.     ErrSpec: Word;
  1289.     Unused: Longint;
  1290.     Result: Longint;
  1291.   end;
  1292.  
  1293.   TWMTimeChange = TWMNoParams;
  1294.  
  1295.   TWMTimer = record
  1296.     Msg: Cardinal;
  1297.     TimerID: Longint;
  1298.     TimerProc: TFarProc;
  1299.     Result: Longint;
  1300.   end;
  1301.  
  1302.   TWMUndo = TWMNoParams;
  1303.  
  1304.   TWMVKeyToItem = TWMCharToItem;
  1305.  
  1306.   TWMVScroll = TWMScroll;
  1307.  
  1308.   TWMVScrollClipboard = record
  1309.     Msg: Cardinal;
  1310.     Viewer: HWND;
  1311.     ScollCode: Word;
  1312.     ThumbPos: Word;
  1313.     Result: Longint;
  1314.   end;
  1315.  
  1316.   TWMWindowPosChanged = TWMWindowPosMsg;
  1317.   TWMWindowPosChanging = TWMWindowPosMsg;
  1318.  
  1319.   TWMWinIniChange = record
  1320.     Msg: Cardinal;
  1321.     Unused: Integer;
  1322.     Section: PChar;
  1323.     Result: Longint;
  1324.   end;
  1325.  
  1326.   TWMHelp = record
  1327.     Msg: Cardinal;
  1328.     Unused: Integer;
  1329.     HelpInfo: PHelpInfo;
  1330.     Result: Longint;
  1331.   end;
  1332.  
  1333.   TWMDisplayChange = record
  1334.     Msg: Cardinal;
  1335.     BitsPerPixel: Integer;
  1336.     Width: Word;
  1337.     Height: Word;
  1338.   end;
  1339.  
  1340. implementation
  1341.  
  1342. end.
  1343.